home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 September / PCWorld_2002-09_cd.bin / Software / TemaCD / karol / karol.exe / {app} / Priklady / 07bazen_rychlo.kpp < prev    next >
Encoding:
Text File  |  2001-05-05  |  1.7 KB  |  96 lines
  1. {
  2. V tomto priklade su pouzivane
  3. vlastne prikazy a vnorene prikazy
  4.   (prikaz preplavaj_bazen ma este
  5.   prikaz celomvzad)
  6. }
  7.  
  8. // prikaz postav bazen
  9. prikaz postav_bazen;
  10.    {*********** postavim bazen ***********}
  11.    rychlo
  12.    opakuj 12 krat
  13.      kym nie je stena rob
  14.        poloz
  15.        krok
  16.      *kym
  17.      vlavo
  18.      rychlo
  19.    *opakuj
  20.    pomaly
  21. *prikaz
  22.  
  23. // prikaz zburaj bazen
  24. prikaz zburaj_bazen;
  25.    {zburam bazen}
  26.    rychlo
  27.    opakuj 12 krat
  28.      kym nie je stena rob
  29.        zober;
  30.        krok;
  31.      *kym
  32.      vpravo;
  33.      rychlo;
  34.    *opakuj
  35.    pomaly;
  36. *prikaz
  37.  
  38. // prikaz preplavaj bazen
  39. prikaz preplavaj_bazen;
  40.  
  41.     // lokalne prikazy
  42.     prikaz celomvzad;
  43.        vlavo;
  44.        vlavo;
  45.     *prikaz
  46.   
  47.   // telo prikazu
  48.    opakuj 3 krat poloz *opakuj
  49.    krok
  50.    kym nie je tehla rob
  51.      opakuj 3 krat poloz *opakuj
  52.      krok
  53.      celomvzad
  54.      opakuj 3 krat zober *opakuj
  55.      celomvzad
  56.    *kym
  57.    krok
  58.    vlavo vlavo
  59.    opakuj 3 krat zober *opakuj
  60.    vlavo vlavo
  61. *prikaz
  62.  
  63. // definicia hlavneho prikazu
  64. prikaz hlavny_prikaz;
  65.  
  66.    postav_bazen;
  67.  
  68.    {prejdem do stredu}
  69.     vlavo opakuj 2 krat krok *opakuj vpravo
  70.  
  71.    {preplavaj}
  72.    preplavaj_bazen;
  73.  
  74.    {pridem do rohu}
  75.    vpravo
  76.    opakuj 2 krat krok *opakuj
  77.    vpravo
  78.  
  79.    zburaj_bazen;
  80.  
  81.    {vratim sa na povodnu poziciu}
  82.    kym je volno rob krok; *kym
  83.    {natocenie v povodnom smere}
  84.    vlavo; vlavo;
  85. *prikaz
  86.  
  87. { ********************************************* }
  88. { *************** ZACIATOK PROGRAMU *********** }
  89. { ********************************************* }
  90. opakuj 4 krat
  91.  
  92.    hlavny_prikaz;
  93.    
  94. *opakuj
  95. { *********** KONIEC PROGRAMU *********** }
  96.